Abbreviations (cont.) 


parset-n 


Alphabetic List of Instructions 


A 

ABS 
ADR 
ASC 
ATN 
ATRIB 
ATTR 
AUTOIL 


B 
BEGINCOMMON 
BINADD 
BINAND 

BINOR 

BINSUB 
BINXOR 

BYE 


parameter set for a procedure 


any text 


Basic Keyed Sequentia 
Access Method 

KSAM file number 
primary file number 
alternate file number 
primary record length 


primary key 


alternate key 

primary key length 
alternate key length 
alternate key displacement 


unused space per block 


continued as needed 
optional parameters 


cnoose one 


parameters 


ς 


CALL 


CHANGE 
CHR$ 
CLEAR 
CLOSE 
COMMON 
CON 
COS 
CREATE 
D 


DATA 
DATES 
DEF 
DEG 
DELETE 
DELREM 
DIM 

DIR 

DO 


DSK 


E 


ECHO 
EDIT 

ELSE 

END 
ENDCOMMON 
ENDDO 
ENDPROC 
ENDWHILE 
ENTER 
ERRPROC 
ERASE 
ESC 
EXITPROC 
EXP 
EXPAND 


INP 
INPUT 
INT 
INTEGER 
IOSTAT 
IRN 


K 


KADD 
KADDVOL 
KALTADD 
KALTCREATE 
KALTCUR 
KALTDEL 
KALTFIRST 
KALTFWD 
KALTOPEN 
KALTVER 
KCLOSE 
KCREATE 


KDEL R 
KGET 

RAD 
ΚΘΕΤΑΡΕ ΒΑΝΌΟΜΙΖΕ 
KGETBACK ty 
KGETCUR REM 
KGETFWD EN 
KGETKEY RENAME 


KGETREC RENUMBER 
KLOAD REPEAT 
KOPEN RESTORE 


KPUT , 
RETRY 
KRETRIEVE RETURN 


KUPDATE RND 


RUN 
L 


LEN 
LET 
LFMODE 
LIBRARY 


NOECHO 
NOESC 
NOLIST 
NTRACE 


ο 


ON ERROR UNLOCK 
ON ESC UNTIL 
ON — GOTO USE 

ON — GOSUB USR 
OPEN 

OUT 


P 


PEEK 

POKE 

POS 

PRINT 
PRINT USING 
PROCEDURE 
PUT 


YOUR LOCAL DEALER IS: 


Cromemco 


32K 
Structured 
Basic 


Features 


Control Structures facilitate modular programming 


Long Variable Names make program debugging and 
maintenance easier 


Statement Labels aid documentation and program 
comprehension 


In Line Basic Editor facilitates program changes 


Basic-KSAM allows data files to be accessed and records 
to be retrieved by specifying the contents of a key field 


Procedures allow for modular programming 
LVAR lists variables and current values 
DELREM deletes remark statements 


BEGINCOMMON & ENDCOMMON define a common 
storage area 


EXPAND inserts null characters in a string 
NOLIST generates run-only code 


HEX returns the ASCII hexadecimal representation of a 
number 


VALC performs error checking on user input 


TYPE returns the type of a numeric variable 
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Basic-KSAM 


FILE HANDLING 
KCREATE \\pri,pk!|.spc) file-ref 


create primary data file 
KCLOSE \\fn close Basic-KSAM file 


KOPEN * pfn* file-ref 


KADDVOL * fn* file-ref add volume to 


existing file 


SEQUENTIAL ACCESS 


KGETBACK *pfn* |var-list| read previous record 
primary file 
KGETCUR * pfn* |var-list read current record 
primary file 
KGETFWD \\pfn\ | var-list read next record 
primary file 
KGET * pfn* var-list read from current re- 
cord, primary file 
KPUT *.pfn* var-list write to current 
record, primary file 
KRETRIEVE * pfn'.svar retrieve primary key 
current record 


RANDOM ACCESS 


KGETKEY ‘pin, pkey” |var- list 
read random record 
primary file 
KGETAPP * pin, pkey^ |var- list] 
read approximate, 
primary file 
KUPDATE * pfn.pkey* |var- list 
update record 
primary file 
KDEL * pfn,pkey 
tile 
KGETREC \\pfn,rec-num\ |var-list 


read Nth record 
primary file 


KADD * pfn,pkey* |var-list| add record. primary 
file 
KLOAD \\pfn. pkey’ |var- list 


load record, primary 
file 


open primary data file 


delete record, primary 


ALTERNATE KEY ACCESS 
KALTCREATE ' pfn.akl  ακά͵'. file-ref 
create alternate key 
tile 
KALTOPEN ' afn.pfn* file-ref 
open alternate key file 
KALTCUR'.afn* |var-list read primary record 
by current alternate 
key 
KALTFIRST *afn.akey* 'var-list 
read next! pnmary 
record by specified 
alternate key 
KALTFWD ^\afn^ |var-list read next primary 
record by current 
alternate key 
KALTVER δίῃ 


KALTADD ‘afn 


verify alternate record 


add record, alternate 
file 


KALTDEL *afn delete record, alternate 


file 
Abbreviations 
N-n ine number 
L-n ine name or number 


c command 


f function 

^5 statement 

file-ref file reference 

chni file channel number 
mode file access mode 
byte-num byte number 
rec-num record number 
rec-size record size 

avar arithmetic variable 
mvar matrix (dimensioned) variable 
svar string variable 

var any variable 

aexp arithmetic expression 
exp expression 

sexp string expression 
dum dummy parameter 
prname procedure name 


Program Development 


ς AUTOL N-1, N-2 automatic line 


numbering 
ATTR | alter file attributes 
file-ret 
uad | "eren aver 
BYE exit from Basic 
L-1 
DELETE | L-1 \| delete statement lines 
L-1,L-2 
c DIR | file-ref directory 


ENTER file-ref enter ascii file 


L-1 
LIST |file-ref Im | list current program 


L-1.L-2 

LVAR | file-ref! list variables 
LOAD file-ret load binary file 

N-1 

N-1.N-2 | 

c RE- N-1,N-2.L-3 renumber 

NUMBER] | N- 1,N-2.L-3 statement lines 

N-1,N-2.L-3.L-4 
RUN |file-ret execute program 
SAVE file-ref save current program 
SCR scratch user area 
TRACE enable trace option 
NTRACE disable trace option 


In Line Editor 


edit program 


D delete character 
| insert text 
K delete the rest of line 
L-1 
c FIND (En | find string 
L-1,L-2 
L-1 " 
c CHANGE | L-1, | change string 
L-1,.-2). 
carriage return reject change 
C accept change 
* change all following 
occurrences 
Documentation 
REM text remark 


Assignment Operator 


LET var - exp assignment 


MAT mvar - aexp matrix initialization 


Arithmetic Operators 


in order o! precedence 


unary pius 


jnary minus 


**or ^ exponentiation 

++ multiplication 
jivision 
addition 


subtractión 


Relational Operators 


equa! to 

ess than 

greater than 

less than or equal to 
greater than or equal to 


or 9 not equal to 


Initialization 
DEG degree mode 
svar ;aexp-1 " 
DIM fee aexp-1|,aexp-2 |,aexp-3 dee 
dimension variable 
IMODE integer mode 
INTEGER fae, ' integer variable 
LFMODE long floating 
point mode 
avar | long floating 
LONG mn point variable 
RAD radian mode 
SFMODE short floating 
point mode 
{ avar short floating 
SHORT eed) point variable 


Control Structures 


c CON continue program 
execution 

s END halt program 
execution 


s FOR avar = aexp-1 TO aexp-2|STEP aexp-3] 
$ NEXT avar for-next loop 


GOSUB L-1 subroutine call 
| RETURN | standard return 
\RETRY | optional return 
GOTOL-1 transfer control 
IF aexp THEN instruction if-then conditional 
branch 
s IF aexp THEN DO if-then-else 
s [ELSE conditional branch 
s ENDDO 
ON aexp EAM L-1,L-2 
\GOSUB} multi-path branch 
s REPEAT repeat-until loop 


s UNTIL aexp 


s WHILE aexp 
s ENDWHILE 


s STOP stop program 
execution 


while-endwhile loop 


s DO define logical 
s ENDDO program segment 


Console and Data I/O 


INPUT "text", | var-list 


PRINT \exp-list print to console 
SPCiaexp space function 
TAB!aexp tab function 


input from console 


PRINT USING svar, exp-list print using 
svar may contain 
# leading blanks 
& leading zeroes 
* leading asterisks 
, comma 
decimal point 
* fixed or floating 
plus sign 
- fixed or floating 
minus sign 
$ fixed or floating 
dollar sign 
I! exponent field 


READ var-list 
RESTORE |L-1 
8 DATA exp-list 


read data statements 
restore data pointer 
data statement 


File 1/0 


CREATE file-ref 


create file 


OPEN \file-num|,rec-size |,mode|)\ file-ref 


CLOSE |\file-num’ | 
ERASE file-ref 


open file for processing 
close file 
erase file 


RENAME old-file-ref, new-file-ref 


REN new-file-ref,old-file-ref 


rename file 


rename file 


PRINT * file-num|.rec-num|,byte-num]|)* [exp-list| 


print to a file (ascii 


INPUT *file-num|,rec-num |,byte-num||*. |var-list| 


input from a file (ascii) 


PUT * file-num|,rec-num |,byte-num|!* [exp-list] 


GET * file-num|,rec-num |.byte-num|! 
get from a file 


put to a file 


[var-list| 


Note: All file I/O optional parameter definitions pertain 


to disk files only 


Functions 


ABS(aexp) 
BINADD(aexp-1,aexp-2) 
BINAND(aexp-1,aexp-2) 
BINOR(aexp-1, aexp-2) 
BINSUB (aexp-1,aexp-2) 
BINXOR(aexp-1,aexp-2) 


<- a - -ᾱ 


vA ‘ate 


EXP (aexp) 
FRA (aexp) 
INT (aexp) 
IRN(aexp) 


c UE X] 


- 


LOG(aexp) 
MAX |aexp-1....,aexp-n) 


Shi ee 


MIN(aexp-1,...,aexp-n 
RANDOMIZE 
RND(aexp) 


— 


-- 


SGN(aexp) 
SQR!aexp! 


— 


absolute value 
binary addition 
binary logical And 
binary logical Or 
binary subtraction 


binary logical Exclusive 
Or 


"e" to the power X 
fractional portion 
integer value 


integer random num- 
ber generator 


natural logarithm 
maximum value 
minimum value 

used with Rnd and Irn 


random number 
generator 


algebraic sign 
square root 


Trigonometric Functions 


f ATNiaexp 
f COS(aexp) 
f SIN(aexp) 
f TANí(aexp 


arctangent 
cosine 
sine 


| 
] 
: 


tangent | 


Programmer Defined 
Functions 


f DEF FNname(X-1,...,X-n) = aexp 


user defined function 


String Functions 


-- - 


-- 


~~ a - 


- - 


εν ae 


f 
f 


ASC(sexp 
CHR$(aexp 
EXPAND svar, aexp 
HEX$|aexp 


LEN!sexp 
POS!sexp-1,sexp-2, avar 
STR$(aexp) 


VALisexp 


VALC/sexp 


DATES$i!sexp 
TIMES/sexp 


ASCII value 
ASCII equivalent 
inserts null characters 


ASCII hexadecimal 
representation 


length of string 
position of substring 


character 
representation 


numeric 
representation 


numeric representa- 
tion with error 
conditions 


date 
time 


System and File Status 


DSK [svar 
ECHO 
NOECHO 
ESC 
NOESC 
FRE(dum 
IOSTAT file-num,aexp-1) 
STOP | 
ON ERROR [coro L-1 
GOSUB L-1) 
STOP 
ON ESC [coro L-1 | 
GOSUB L-1 
SET aexp-1,aexp-2 
SYS(aexp) 
ADRivar) 


display or alter 
current disk drive, 
eject disks, turn 
drive motors off 


re-enables display of 
user input 


disables display of 
user input 


re-enables escape key 
operation 


disables escape key 
operation 


free space 
Ι/Ο status 


on error transfer 
control 


on escape transfer 
contro! 


set system parameter 
system information 
address of variable 


Machine Level 


f INP(aexp) 
OUT aexp-1, aexp-2 
f PEEK(aexp) 


POKE aexp-1, aexp-2 


f USR(aexp-1,aexp-2.... 


input from port 
output to port 


contents of memory 
location 


output to memory 
location 


call a user assembly 
language program 


Scope 


COMMON 


BEGINCOMMON 


reserve common stor- 
age area, method I 


begin common stor- 
age area, method || 


ΕΝΌΦΟΜΜΟΝ end common storage 
area, method II 
avar 
LOCAL ( svar | S define local variable 
MAT mvar 
Procedures 


CALL] .prname |(parset-1; parset-2) | 


procedure call 


s PROCEDURE .prname|(parset-1)] 


s ENDPROC | |parset-2)| 
s ERRPROC 
s EXITPROC |[parset-2)| 


aexp | 


CLEAR de m 


LIBRARY |file-ref] 


c USE [exp | 
,prname 


LOCK {exp \ 
.prname | 


UNLOCK [m \ 
.prname/ 


procedure definition 
procedure end 
procedure error end 
procedure exit 


clear partition 


open or close library 


use partition 
lock partition 


unlock partition 


Program Security 


L-1 
DELREM | L-1, | 
L-1,L-2 


L-1 
wousr[] L-1, | 
L-1, L-2 


delete remarks 


disable listing 


